#!/usr/bin/env escript
%% -*- erlang -*-

main([String]) ->

	%% make sure there is a trailing period
	Proper=case lists:last(String) of
			   46 -> String;
			   _Else -> String ++ "."
		   end,
	
	{ok,Tokens,_} = erl_scan:string(Proper),
	{ok,Term} = erl_parse:parse_term(Tokens),
	
	Bin=term_to_binary(Term),
	io:put_chars(Bin).
%%	io:format("~w~n",[Bin]).




